home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / diskfont.inc < prev    next >
Text File  |  1998-06-24  |  872b  |  36 lines
  1. pattern OpenDiskFont(_textAttr) is
  2.     push a6;
  3.     a0:=_textAttr;
  4.     a6:=DiskfontBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # OPENDISKFONT
  7.  
  8. pattern dfontAvailFonts(_buffer,_bufBytes,_flags) is
  9.     push a6;
  10.     safe a0:=_buffer; d0.l:=_bufBytes; d1.l:=_flags;;
  11.     a6:=DiskfontBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # DFONTAVAILFONTS
  14.  
  15. pattern NewFontContents(_fontsLock,_fontName) is
  16.     push a6;
  17.     safe a0:=_fontsLock; a1:=_fontName;;
  18.     a6:=DiskfontBase; jsr [a6-42];
  19.     pop a6;
  20. endp;                                                            # NEWFONTCONTENTS
  21.  
  22. pattern DisposeFontContents(_fontContentsHeader) is
  23.     push a6;
  24.     a1:=_fontContentsHeader;
  25.     a6:=DiskfontBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # DISPOSEFONTCONTENTS
  28.  
  29. pattern NewScaledDiskFont(_sourceFont,_destTextAttr) is
  30.     push a6;
  31.     safe a0:=_sourceFont; a1:=_destTextAttr;;
  32.     a6:=DiskfontBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # NEWSCALEDDISKFONT
  35.  
  36.